home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
mailmen.arc
/
XMASLAB.PRG
< prev
Wrap
Text File
|
1991-01-10
|
3KB
|
90 lines
* XMASLAB.PRG PRINTS CHRISTMAS LABELS FOR MAILING LIST PROGRAM (C) COPYRIGHT
* DECEMBER 3, 1983 BY PHILIP K. PERLMAN
SET TALK OFF
ERASE
STORE T TO BEVEL
DO WHILE BEVEL
STORE ' ' TO ANS1
@ 10,5 say "Do you wish to print labels of friends or business (F or B) ?"
@ 10,75 GET ANS1
READ
CLEAR GETS
IF !(ANS1) = 'F' .OR. !(ANS1) = 'B'
STORE F TO BEVEL
ELSE
ENDIF
ENDDO
ERASE
@ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
@ 12,5 SAY 'Press any key when ready'
?
?
?
?
?
?
?
?
?
wait
IF !(ANS1) = 'F'
USE MAIL
GO TOP
SET PRINT ON
? CHR(15)
DO WHILE .NOT. EOF
IF FRIEND <> ' '
? TRIM(FIRST), LAST
? ADDR1
? ADDR2
? TRIM(CITY)-"," , STATE, ZIP
?
?
ENDIF
SKIP
ENDDO
? CHR(18)
SET PRINT OFF
RETURN
ENDIF
IF !(ANS1) = 'B'
USE MAIL
GO TOP
SET PRINT ON
? CHR(15)
DO WHILE .NOT. EOF
IF BUS:XMAS <> ' '
? TRIM(FIRST), LAST
? COMPANY
? ADDR1
? TRIM(CITY)-"," , STATE, ZIP
?
?
ENDIF
SKIP
ENDDO
? CHR(18)
SET PRINT OFF
RETURN
ENDIF
ENGINEER,PE GALBRO WOOD FLOORS TONY GALBRO GLENDALE NY11379894-4276 381-0400 FLOORING, WOOD , IN
IF !(ANS1) = 'B'
USE MAIL
GO TOP
SET PRINT ON
? CHR(15)
DO WHILE .NOT